home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
MACD 5
/
MACD 5.bin
/
internet
/
yam_i_dodatki
/
yamaminetupload
/
aminetupload.rexx
< prev
Wrap
OS/2 REXX Batch file
|
1997-04-13
|
1KB
|
46 lines
/* This script allows you uploading files to Aminet with YAM
*
* Requires: rexxreqtools.library
*
* © by Andreas Grundler <a.grundler@regensburg.netsurf.de>
* $VER: AminetUpload.rexx V1.1 (13.04.97)
*/
OPTIONS RESULTS
IF ~SHOW('L','rexxreqtools.library') THEN CALL ADDLIB('rexxreqtools.library',0,-30,0)
ADDRESS YAM
/* Setup */
path="Ram:" /* Enter here your default upload-path */
/* Main */
lhafilename=rtfilerequest(path,,"Please select the Archiv-File",,"rtfi_matchpat=#?.(lha|lzh|gif|jpg|dms)|rtfi_buffer=tru",check)
if check=0 then do
show
exit
end
mailwrite
writemailto 'aminet-server@wuarchive.wustl.edu'
writesubject 'Upload'
writeattach lhafilename "Archiv-File" "MIME" "application/octet-stream"
writequeue
len=length(lhafilename)
len=len-4
word=substr(lhafilename,1,len)
readmefilename=word".readme"
mailwrite
writemailto 'aminet-server@wuarchive.wustl.edu'
writesubject 'Upload'
writeattach readmefilename "Readme-File" "MIME" "application/octet-stream"
writequeue
exit